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ef LLE®® 1D®®SNDSMB 
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LL II SSSSSS 
LL 1] SSSSSS 
LL 11 SS 
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LL 11 SS 
LL I] 5S 
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MODULE SNDSMB ( cunce,(8L185°"), 
eS BLE 
BEGIN | 


' 
SEES ESS ESET OS ELITE TTT TTT TST i ci icici iii iti i iiiie | 


ie COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ie ALL RIGHTS RESERVED, 


!* THIS ey ® is pyaisaee UNDER A LICENSE AND MAY BE USED AND ag La 
!* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
!* INCLUSION OF THE ABOVE pith NOTICE. THIS SOFTWARE OR ANY OTHER 
ie COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
!* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 
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!* THE INFORMATION IN THIS SOFTWARE 1S wi cf O CHANGE WITHOUT NOTICE 


JECT T 
'® AND eee NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
!* CORPORATION. 
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010 
4 
0020 
021 
33 
025 '@ DIGITAL ASSUMES NO RESPONSILILITY FOR THE USE OR RELIABILITY OF ITS 
$ '® SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
i 
3 8 | pampnnnennubnsnenenddenadeananediuneiaabenibientinnhaamenenecéaabantedeet 
$6 : lee | 
9) ; ! | 
Z ; FACILITY: FIIACP Structure Level 1 | 
035 i ABSTRACT: 
00 $ i This routine constructs and sends a message to the symbiont manager 
° 3 to cause a file to be spooled and deleted. 
40 i ENVIRONMENT : | 
ek i STARLET operating system, including privileged system services | 
Z and internal exec routines. 
45 1 ian 
m4 : 
4 : 
3 AUTKLA: Andrew C. Goldstein, CREATION DATE: S-Jun-1978 11:23 
1 : MODIFIED BY: 
¢ i v03-006 ACGO346 Andrew C. Goldstein,  1-Aug-1983 15:26 
Convert back to use i FIITA ACP 
i v03-005 CDS0004 Christian D. Saether 26-Jul-1983 
5 i 
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2 
1b-se -1984 01:19: VAX-11 Bliss-32 V4,0-742 P 2 TRU 
1 =3007 1382 9 388 DISKSVMSMASTER:CF11A.SRCISNDSMB.B32;1- > (1) v04 
v03-004 CDS0003 Christian D. Saether 13-May-1983 
Reflect change to IOCSCVT_DEVNAM interface. 
v03-003 CwWH1002 CW 4obbs 11-Mar-1983 
Use extended pid and owner in symbiont message 
v03-002 CDS0002 Christian D. Saether 16-Dec-1982 
Make item List generation pic. 
v03-001 ¢DS0001 C Saether 30-Jul-1982 


Changes for ACP to XQP, 
No timer on waiting for job controller reply. 


V02=004 ACG0245 Andrew C. Goldstein, | 23-Dec-1981 21:21 | 
Check error return from queue manager 


v02-003 SPF0025 Steve Forgey 08-Sep-1981 
Add new header fields to symbiont manager message. 


v02-001 GwWF0043 Gary W. Fowler 12-May-1981 15:20 
Add file size option and file size to message sent to job 
controller. 


v02-000 ACG0167 Andrew C. Goldstein 16-Apr-1980 19:25 | 
Previous revisicn history moved to £F118.SRCJF11B.REV 


Ll 
REQUIRE ‘SRCS:FCPDEF .B32'; 


MACRO 
Layout of item List for job controller. 


v04 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1] LIBRARY ;SYSSLIBRARY:L 18,132"; 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


' 
4 i The first item is the queue name. 
0408 ! The second item is the file identification. 
0409 ! The third item is the delete file item code. 
4 att } Only fields that are filled in with non-zero values are defined. 
98 0412 ; 
99 041 I1TM_QNAMS1Z = 0, 0, 16, 0%, ' queue name size 
100 0414 1TM_QNAMCODE = 2, 0, 16, 0 2, ! queue name item code 
19) bite 1 TM_QNAMADDR = 4, 0, 32,02, ! queue name address 
108 419 ITM_FILEINFOSIZ = 12, 0, 16, 0% ! file identification size 
104 0418 ITM“FILEINFOCODE = 14, 6, 16, 0 &, i file id item code 
ine Role ITM_FILEINFOADDR = 16, 0, 32, 0 %, ! file id address 
4 14 ° 1 ITM_DELFILECODE = 26, 0, 16,02, ! delete file item code. 
109 4 : ITM_USERIDSIZ. = 36. - 16, 0%, ! user ID block size 
110 424 ITM_USERIDCODE = Be ° 18. Re ' user ID block item code 
133 425 ITM_USERIDADDR = 40, 0, 32, 0 2; ! user ID block address 
118 $ 
114 428 LITERAL 


ise AoA PoseieS BTS buwGhASfensch ik: seeasnosme.es2:1°% ea} 


1’ 1 NGTH = 46*12 +4 tem_ codes + stopper. 
118 te ! HY west : 1 : gf lose. LENGTH + i ; rs +2 or 
118 2 1 UID LENGTH =4+8+1 4 12; ! UIC + account + priority + username 


3 
ii 


1: address of file header 
ARG2: address of file control block 


: REF BBLOCK, 
: REF BBLOCK; 


: BBLOCK Te LENGTH], ! item List for jb 


: VECTOR FS_CENGTH, 


message sent to symbiont manager 


16-5 
14-$ 


GLOBAL ROUTINE SEND_SYMBIONT (HEADER, FCB) 


; t© 
: VECTOR CUID_LENGTH 


: VECTOR (2), 
: REF BBLOCK, 


: 189 ra 

. 4 5 : 144 

: 1 ¢ : 1 | 

; 4 4 i FUNCTIONAL DESCRIPTION: 
: 4 6 4 $ 1 i 

43h 440 1! 

: 155 Seed 1 | 

: 130 rr 1 | CALLING SEQUENCE: 
1 Aus SEND_SYMBIONT (ARG1, ARG2) 
: 4 j 446 1 | INPUT PARAMETERS: 
: 4 '\ Jo ARG 

ie Red 

: 137 0450 1 ! IMPLICIT INPUTS: 

i 139 beso 1 | - 

: 140 peas 1 | OUTPUT PARAMETERS: 
BOCES Bh iat 

; 128 0456 1 | IMPLICIT OUTPUTS: 
mo fe ip 

> 166 0459 1 ! ROUTINE VALUE: 
Poe lie 

> 149 0462 1 | SIDE EFFECTS: 

: 150 0463 1! 

> 151 0464 1! 

; 138 0465 1 in 

s ¥ 0466 1 

: 154 0467 2 BEGIN 

: 155 0468 2 

: 156 0469 2 MAP 

: 157 0470 HEADER 
Bf is 

: 160 047 BUILTIN 

: 123 Bees LOCC; 

; 188 47 LINKAGE 

> 164 47 L_10C_CvT 

: 165 0478 

> 166 0479 

: 18% 0c8) 5 LOCAL 

: 169 4 é ITEMLIST 

; 100 FILEINFO_STR 
; 17 485 USERID_BLOCK 
: (174 JACSTS 

s 79 4 3 LENGTH 

; 176 4 IDENT_AREA 


: gt 
} io 


' le 
! ad 


2 

ep-1984 01:19: VAX-11 Bliss-32 
op bbe 93:33:84 DISKSVMSMASTER:[ 
: NOVALUE = 

This routine constructs and sends a message to the symbiont manager 


to cause a file to be spooled and deleted. 


PACKET: address of I/0 packet of this request 


e header ar 
e control block arg 


— 


= 1, REGISTER = 5, 
={): 


e. 

BYTE), ! everything the jbc wants 
now about the file. 

. BYTEJ, : user identification block 

ring scan pointer 

status block for SNDJBC 


Length of converted device name 


dress of file header ident area 


42 p 4 
RCISNDSMB.B32;1.° (2). 
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F 2 | 
16-Sep-1984 01:19: VAX-11 Bliss-32 V4.0-742 Page 5. 
13-80-1382 93: 38i 8h DISKSVMSMASTER:CF11A.SRCISNDSMB.B32;1 . (2) | 
44 90 PCB REF BBLOCK, | user's PCE 
491 J18 REF BBLOCK, ' user's JIB : 
7 138 ucB REF BBLOCK, ' UCB of spooled device 
rt vcB REF BBLOCK; '! VCB of spooled device 
495 EXTERNAL 
£38 CLEANUP_FLAGS BITVECTOR, ! cleanup action flags 
9 USER_STATUS VECTOR, ! status returned to user 
10_PACKET : REF BBLOCK, ! 1/0 packet of user request 
CURRENT_UCB : REF BBLOCK, ! UCB of current device 
SCHSGL_PCBVEC : REF VECTOR ADDRESSING_MODE (GENERAL); 
! system PCB vector 
EXTERNAL ROUTINE 
MAKE STRING, rt RAD-50 to name string 


! conve 
1OCSCVT_DEVNAM : L_IOC_CVT ADDRESSING_MODE (GENERAL); 
! get device name of UCB | 


Initialize item list to zeroes. 


CHSFILL (0, ITM_LENGTH, ITEMLIST); 


SSSLESEANLESELEREARSS 


Get UCB and VCB addresses for the spooled device. 
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49 
199 
5 
2 } 
208 
0504 
505 
208 
50 
0508 
0509 
0510 
0511 
b218 
051 
01 0514 
4 0515 
0 0516 UCB = .10_PACKETCIRPSL_MEDIA); { 
ee o317 vCB = .UCBCUCBSL_vCB); 
06 $319 ! Point the first item at the queue name in the spooled device's VCB. 
07 0520 ! This might be a Little racy in that we could become unscheduled and 
08 0521 ! the device set non-spooled or changed before the sndjbc service gets 
09 05 ¢ ! a chance to look at it, but that should be no more harmful than if 
10 05 ! we copied it off to local storage and it changed before the service 
11 0524 ! executed anyway. At worst the VCB gets deallocated and some garbage 
\¢ 0525 ' is picked up for the name. BFD. 
14 ga59 5 
15 0528 ITEMLIST CITM_QNAMSIZ) = .VCB CVCBSB_QNAMECNT); 
16 0529 ITEMLIST CITM_QNAMCODE) = SJC$_QUEUE; 
+ be ITEMLIST CITM-QNAMADDR) = VCB CVCBSB_QNAMECNT]) + 1; 5 
19 23¢ § | FILl inthe file identification string. 
0 5 ! “Wormal"’ callers of this service supp only the counted device 
1 534 ! string, the file ID and the directory ID. The service then performs 
§ 535 ' an access function on that file to recover other information it needs 
5 § ! in a trustworthy manner. 
4 5 ' However, we ARE the file system, -e therefore can be trusted. Also, 
5 538 ! an attempt to call us back recursively with an access function just 
$ 539 ! flat out will mot work, because we'll be sitting here waiting for the 
§ 540 ' SNDJBC service to finish, 
8 541 ' Therefore, we will also put the end of file block, access mask, | 
9 348 i and expanded file spec in this string also. SNDJBC will look at it 
0 54 ! because we are calling from exec mode or better and use this info 
3 re rather than doing an access function on the file. 
546 


2 | 
18-5 1984 01:19: VAX=11 Bliss-32 V4.0-742 
14- ie- Be 2:29: 34 DISKSVMSMASTER: :CF1IA.SRCISNDSMB.B32; he OS 


; 47 ! First get the counted device string. seve fhe trailing ‘':"’ on 

s 5 ‘3 ! the string for now, because we'll want a little later when 

: 2 the full Tile name string is built. 

; 1 

: ; IOCSCVT_DEVNAM (15, me tS “ C1) 

> 26 » CURRENT UCB; ; LENGTH); 

; re : FILEINFO_STR (0) = RRENGTHs 

: rk $ ! Pick up the file ID from the FCB instead of the file header 

: 246 ! because the RVN has already been normalized in the FCB, i.e., 

; 245 ee i APPLY _RVN has already been calle d. 

FH re i Also Zero out the DID while we're at it. 

: $08 i 

; rs 0860 CHSCOPY (FIDSC_LENGTH, FCBCFCRSW_FID], 0, 2*FIDSC_LENGTH, FILEINFO_STR (16]); 
: 251 0564 ' Next is the end of file block for the file. 

: $38 see 5 

: 54 beee (FILEINFO_STR B £261) 50 323 ; A> ‘° SOLOCELNEADEREP HT SM RECATTR],FATSL_EFBLKI], 16); 
; 255 0568 Ha (FILETNFO_STR (284)< 

; 26 0969 p* <BBLOCKEHEADER FHisu OReeATTAY, PATSW. FFBYTE) EQL 0 

: 38 0571 (FILEINFO_STR (283)<0,32> = .(FILEINFO_STR (28])<0,32> - 1; 

: 260 b878 ! File access mask (everything allowed). 

: 261 0574 ! 

3 o¢ Bat? 

: o7 278 (FILEINFO_STR (€32])<0,32> = &X°FFFFFFFF'; 

; 265 bar ! Build an expanded file name string including the device, null directory 
3 08 $t44 ; spec, and the file name. 

: 588 at 

; $$ O38) p = CHSMOVE (.FILEINFO_STR CO], FILEINFO_STR C1), FILEINFO_STR (38)); 
; $f 0584 ; Now that the entire device spec has been copied, adjust the count 

s 27 0585 ! on the first gtring to oree., te trailing “:"', just ike RMS does 

: 7 05 } for the DVI field in the NAM block. 

: 276 058 ; 

; e275 0588 

; , 34 FILEINFO_STR CO) = .FILEINFO_STR [0] - 1; 

: 28 591 ! Add in null directory spec. 

oar 236 ! 

; 280 59 

; 281 594 (.P p)<0. 162 oe *{)*: 

3 ; $32 P= .P + 2; 

; Be $99 Now pick up the file name from the ident area in the header. 

; 86 599 ; 
; 8 00 oe AREA = .HEADER + .HEADERCFHISB_IDOFFSET) * 2; 

3 4 ret -P + MAKE_STRING (IDENT _AREACF 11SW_F PELEWAMES - 6, .P); 

; 3 88 (FILEINFO_STR (36])<0,16> = .P = FILEINFO_STR (38); 
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SSNDJBCW (EFN = EFN 
FUNC = SJC$_ENTER_FILE, 
10SB = JBCSTS, 
ITMLST = ITEMLIST); 


} A full longword of status is returned from sndjbc. 


vvv 
ooo 

o 

= 


rSSSass 


SPREE 


IF NOT .JBCSTS (0) 
THEN 


BEGIN 

CLEANUP PLAgStCLE DELFILE = 1; 

USER_STATUSC1J = TJBCSTS [0]; 
RINTED); 


ERR_EXIT (SS$_NOTP 
END? 


3 1 4 
: 4 ee } Set up the item list entry for the file information string. 
: 294 6 
; 95 O68 ITEMLIST CITM_FILEINFOSIZ] = .P = FILEINFO_STR (OJ; 
; 38 609 ITEMLIST ae ei OKpDa = SJC$_FILE IDENTIFICATION; 
: 44 bert ITEMLIST CITM_FILEINFOADDR) = FILETNFO_STR (OJ; 
: 299 Belg ! Build the user identification block, containing UIC, account, base 
; 500 061 ! priority, and username, 
; 301 O61 ! 
; 88 ois PCB = .SCHSGL Peeve ch - (10_PACKETEIRPSL _P1D3) <0, 16033 
$ 04 061 JIB = .PCBCP fs JIBJ; 
; 305 0618 2 (USERID_BLOCK(O 1)< +82 = .PCBCPCB$L_UIC); 
; 306 0619 2 (USERID“BLOCKC24])<0.08> = -PCBCPCBSB-PRIBI; 
; 07 0620 SASSUME (JIBSS_USERNAME, EQL, 12); 
H 08 0621 CHSMOVE (JIBSS_USERNAME, JI1BEJ1BST_USERNAME], USERID_BLOCK(04]); 
3 06 ; SASSUME (JIBSS_A » EQL : 
; 19 06 3 ¢ CHSMOVE (JIPSSTACCOUNT, J18Cs1B$T_ACCOUNT], USERID_BLOCK[16)); 
[ \¢ ee 2 } Build the item descriptor for the user identification. 
: 314 0627 2. 
$ 15 0628 ITEMLIST CITM_USERIDSIZ) = 25; 
; 16 0629 ITEMLIST CITM_USERIDCODE] = SJC$_USER_IDENTIFICATION; 
: i? be , ITEMLIST CITM_USERIDADDR) = USERTD_BLOCK; 
3 $8 0632 Finally the item code to delete the file after printing. 
: 321 063 
: 328 bos ITEMLIST CITM_DELFILECODE) = SJC$_DELETE_FILE; 
: 324 063 ! The status from the service is always written to the iosb and the 
3 $2 063 ! completion ast is always delivered, regardless of status, so we 
3 $8 063 do not need to separately check the status of the service call. 
: 328 
; $9 
; 0 
3 $3 
; 33 
: ; 
: 338 
; 339 
: 340 
Ce 
: B44 
3 5 
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1 END; ! end of routine SEND_SYMBIONT 
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1h-56 1984 01:19: VAX-11 Bliss-32 V4.0-742 Page 8 
12780871382 93:33:84 DISKSVMSMASTER:CF11A.SRCISNDSMB.B32;1 ’ (2). 

TITLE $ 
- IDENT 5y04-800\ 
ere CLEANUP_FLAGS, USER_STATUS 


»PSECT SCODES,NOWRT,2 


& ike 007¢ 90998 aBNTRY SEND SYMBIONT, Save R2,R3,R4,R5,R6 F 0433 | : 

34 00 6E " op 3f 00009 moves #0, (SP), #0, #52, ITEMLIST ; 0511 | : 
50 00006 CF DO 0000 MOVL 10 PACKET, RO > 0516 : 

50 ; AO 00 9901 MOVL TRO) utB : : 

50 4 Aad 00 0001 MOVL 52(uCcBS, VCB + 0517 : 

70 AE B AO 9B 0001B MOVZBW 11(VCB). ITEMLIST + 0528 : 

72. «AE 6 8F 9B 00020 MOVZBW #134. ITEMLIST+2 : 03¢9 ; 

74 AE OC AO 9E 900 5 OVAB 12(R0), ITEMLIST+4 : 0530 : 

51 25 AE 9E 008A MOVAB PILEINFO_STR+1, RI ; 0552 ; 

55 00006 CF DO $0080 MOVL § CURRENT_UCB, RS : : 

50 OF 00 90035 MOVL #15, RO : ; 

000000006 00 16 00038 JSB 10C$CVT_DEVNAM : : 

24 «OA 51 90 00036 MOVB LENGTH, ~FILEINFO_STR + 0554 ; 

50 08 AC 00 0004 MOVL CB, ; 0562. : 

0c 900 24 AO rn 06 2¢ 00046 MOVCS #6, 36(RO), #0, #12, FILEINFO_STR+16 : 
50 04 AC DO 0004 MOVL HEADER, RO : 0567 : 

40 AE 16 A0 19 9¢ 0005 ROTL = #16, 28(RO), FILEINFO_STR+28 Pais : 
1A AO BS O005A TSTW 26(RO) : 0569 : 

03 if 005d BNEQ 1 : : 

40 AE D7? 0005F DECL FILEINFO_STR+28 : 0571 ; 

44 AE 01 CE 00062 1$: MNEGL #1, FILETNFO_STR+32 : 0576 ; 

50 24 AE 9A 00066 MOVZBL FILEINFO_STR> R : 0582 ; 

4A AE 25 AE 5 ¢8 BOG: vc RO, FILETNFO_STR+1, FILEINFO_STR+38 3 3 
24 AE 97 000 DECB FICE INFO STR : 0589 ; 

83 5058 8F B0 0007 MOVW #23899, TP)+ > 0594 : 

50 04 BC 9A 0007 MOVZBL @HEADER, RO : 0600 ; 

50 04 BC49 3E O007C OVAW @HEADERCROJ, IDENT_AREA ; ; 

53 DD 00081 PUSHL P ; 0601 | : 

FA AO OF 0085 PUSHAB -6(IDENT_AREA) : | F 

00006 cf 0 FB CALLS #2, MAKE-STRING : | : 

3 f 0088 ADDL2 * P : | : 

2 ba oA : 008: MOVAB FALE INFO STR+38, R > 0603 | : 

48 AE 50 a3’ 0009 SUBW3 = RO, P, FILEINFO. STR+36 ; | : 
0 24 AE 9E 0009 MOV FILEINFO_STR, RO > 0608 : 

7C OA g A3 000 SUBW P, ITEMLIST+12 : : 
7E AE i OA MOV §, {TEMLIST#14 : 0609 | : 

DC AD 24 A OOA4 MOVAB LEINFO_STR, ITEMLIST+16 > 0610 : 

1 000000006 00 oD A9 MOVL H$GL_PCBVEC, R1 > 0616 : 

0 006 D 4 ROVE ¢ T, RO : 3 

8 ic B 5 3 3 

DO 00088 1 , PCB : : 


56 8 80 
4 A ¢ 
AL F 
of AE f A6 
1 AE 1 A6 
FO AD 00960019 
F4 = AD 08 
E6 AD 
98 
C 
7E 
000000006 60 
0000G CF 
0000G CF 


2184 


; Routine Size: 274 bytes, Routine Base: S$CODE$ + 0000 


346 0659 1 
347 0660 1 END 
348 0661 0 ELUDOM 

; PSECT SUMMARY 

: Name Bytes 

: SCODES 274 NOVEC,NOWRT, 

; Library Statistics 

; File Total 

> _$255$DUA28:(SYSLIBILIB.L32;1 18619 

; COMMAND QUALIFIERS 


WANA OO—-} FSI PWOOPOO 
MOM VW Mmm Comm "COM OOO 
NOOOWVOS V"MOMOWDOOO 


yoo 4 mn Mm, b pA e oo 


COoooooceoo 


Mapped 


19:3} VAX=-11 Bliss-32 V4.0-742 
: DISKSVMSMASTER:CF11A.SRC 
1 PCB), JIB 

188(PCB), USERID _BLOCK 

4 (PCB) USERID BLOCK+24 

AON aT Rs sor 
Fob 3bco5. ITEMLIST+3 

USERID BLOCK JIEMLIST+40 

#24, ITEMLIST+26 

= (SP) 

JBCSTS 

TEMLIST 

HI , =(SP) 

#7, SYSSSNDJBCW 

yecsts, 2$ 

#32, CLEANUP_FLAGS+2 

yecsTs, USERTSTATUS+4 

#8580 


REL, CON,NOPIC,ALIGN(2) 


Processing 
Time 


00:01.9 


; BLISS/CHECK=(FIELD, INITIAL ,OPTIMIZE)/LIS=LIS$:SNDSMB/OBJ=OBJ$:SNDSMB MSRC$:SNDSMB/UPDATE=(ENHS: SNDSMB) 


<-— 
Fe 


JSNOSMB .B32; 179 


VMmIOo@wW—OooOnN —Oo 


eee 


Oooooooooo 


POARAAAAAO 


PUWNRNN Se 


Bete Ge Se Ge Ge FH Se Se Se Se Se Se Se Se Se Se Ge Se Se Se Se Se Se ee Se Se Se Se Se Se Se Se Seas se Ge Se teases 


VAX-11 Bliss-32 V4.0-742 ge 1 
DISKSVMSMASTER:CF11A.SRCISNDSMB.B32; (2 


: un Time :10. 
; Flapsed. flee: 8 i . 
; Lines/CPU Min: 6 

3 tenenes/CPU-Nin: 1988 


133 pages 


; Memor a weed: | 
; Compilation Complete 


274 Ht + 0 data bytes 
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